home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CU Amiga Super CD-ROM 17
/
CU Amiga Magazine's Super CD-ROM 17 (1997)(EMAP Images)(GB)[!][issue 1997-12].iso
/
CUCD
/
Online
/
News
/
Thor
/
HD-Install
/
thor25_arexx.lha
/
RePostEN.thor
< prev
next >
Wrap
Text File
|
1995-09-06
|
3KB
|
128 lines
/* $VER: RePostEN.thor 3.1 (02.09.1994)
*
* Arexx script to repost messages from a BBS to conferences on another.
*
* Script by: Eivind Nordseth, Ultima Thule Software.
*/
options results
/* trace results */
EVE_ENTERMSG = 0 /* Enter message */
if(substr(address(),1,4) ~= "THOR") then do
parse arg thorport
if~(show(p, thorport)) then do
if ~(show(p, "THOR.01")) then do
say "No THOR port found!"
exit
end
else thorport = "THOR.01"
end
end
else thorport = address()
if ~show('p', 'BBSREAD') then do
address command
"run >nil: `GetEnv THOR/THORPath`bin/LoadBBSRead"
"WaitForPort BBSREAD"
end
address(thorport)
CURRENTMSG stem MSG
if(rc ~= 0) then
do
REQUESTNOTIFY TEXT '"No current message."' BT '"_Ok"'
exit
end
address BBSREAD GETBBSLIST stem BBSLIST
if(rc ~= 0) then
do
address(thorport)
REQUESTNOTIFY TEXT '"'BBSREAD.LASTERROR'"' BT '"_Ok"'
exit
end
REQUESTLIST instem BBSLIST outstem TOBBS title '"Select BBS to repost to"'
if(rc ~= 0) then
do
if(rc ~= 5) then address(thorport) REQUESTNOTIFY TEXT '"'THOR.LASTERROR'"' BT '"_Ok"'
exit
end
dobbs = result
address BBSREAD GETCONFLIST bbsname '"'dobbs'"' stem CONFLIST
if(rc ~= 0) then
do
address(thorport)
REQUESTNOTIFY TEXT '"'BBSREAD.LASTERROR'"' BT '"_Ok"'
exit
end
REQUESTLIST instem CONFLIST outstem TOCONF title '"Select Conference"'
if(rc ~= 0) then
do
if(rc ~= 5) then address(thorport) REQUESTNOTIFY TEXT '"'THOR.LASTERROR'"' BT '"_Ok"'
exit
end
doconf = result
address BBSREAD
UNIQUEMSGFILE bbsname '"'dobbs'"' stem UNIQUEFILE
if(rc ~= 0) then
do
address(thorport)
REQUESTNOTIFY TEXT '"'BBSREAD.LASTERROR'"' BT '"_Ok"'
exit
end
READBRMESSAGE bbsname '"'MSG.BBSNAME'"' confname '"'MSG.CONFNAME'"' msgnr MSG.MSGNR headstem HEADTAGS textstem TEXTTAGS
if(rc ~= 0) then
do
address(thorport)
REQUESTNOTIFY TEXT '"'BBSREAD.LASTERROR'"' BT '"_Ok"'
exit
end
if(~open('fh',UNIQUEFILE.NAME,'Append')) then
do
address(thorport)
REQUESTNOTIFY TEXT '"Unable to open file:' UNIQUEFILE.NAME '"' BT '"_Ok"'
exit
end
msgfrom = HEADTAGS.FROMNAME
if symbol("HEADTAGS.FROMADDR") = "VAR" then msgfrom = msgfrom || ' <' || HEADTAGS.FROMADDR || '>'
call writeln('fh', 'Message crossposted from: ' || MSG.BBSNAME || ':' || MSG.CONFNAME)
call writeln('fh', 'Originally written by: ' || msgfrom)
call writeln('fh', 'Subject: ' || HEADTAGS.SUBJECT || '0a'x)
do n=1 to TEXTTAGS.TEXT.COUNT
call writeln('fh', TEXTTAGS.TEXT.n)
end
call close('fh')
drop EVENT.
EVENT.SUBJECT = HEADTAGS.SUBJECT
EVENT.TONAME = 'ALL'
EVENT.CONFERENCE = doconf
EVENT.MSGFILE = UNIQUEFILE.FILEPART
WRITEBREVENT bbsname '"'dobbs'"' event EVE_ENTERMSG stem EVENT
if(rc ~= 0) then
do
address(thorport)
REQUESTNOTIFY TEXT '"'BBSREAD.LASTERROR'"' BT '"_Ok"'
exit
end